home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / CastleD / KQ / CDLIGHT.CS < prev    next >
Encoding:
Text File  |  1998-12-15  |  605 b   |  32 lines
  1.  
  2.  
  3. if test $2 == ConnorAction
  4.  
  5.    if test $4 == do
  6.     set closeenough false
  7.       checkDistance Connor cdlght1 1300
  8.     if test $Console::Return == 1
  9.         set closeenough true
  10.     endif
  11.       checkDistance Connor cdlght2 1300
  12.     if test $Console::Return == 1
  13.         set closeenough true
  14.     endif
  15.     if test $closeenough == true
  16.  
  17.  
  18.         sendEvent 0 firedor KQDoorEvent 0
  19.         sendEvent 0 cdlght1 KQDoorEvent 0
  20.             sendEvent 0 cdlght2 KQDoorEvent 0
  21.  
  22.     KQObject::collisionType cdlght1 -32
  23.     KQObject::collisionType cdlght2 -32
  24.  
  25. else
  26.  
  27. KQMonster::speak Connor Connor 0 0 0 14 1 1
  28.  
  29.     endif
  30.  
  31.    endif
  32. endif